home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CDPD Public Domain Collection for CDTV 4
/
CDPD_IV.bin
/
e
/
mailinglists
/
amigae.0294feb.archive
/
000116_donews!crash!c…wu.edu!gbritton_Tue, 1 Mar 94 01:42:08 PST.msg
< prev
next >
Wrap
Internet Message Format
|
1994-05-26
|
2KB
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
id <1xzi@bkhouse.cts.com>; Tue, 1 Mar 94 01:42:08 PST
Received: from crash by donews.cts.com with uucp
(Smail3.1.28.1 #18) id m0pbEie-0001w9C; Mon, 28 Feb 94 12:37 PST
Received: from cap.gwu.edu by crash.cts.com with smtp
(Smail3.1.28.1 #18) id m0pbEJ0-00000oC; Mon, 28 Feb 94 12:11 PST
Received: by cap.gwu.edu (4.1/SMI-4.1)
id AA02741; Mon, 28 Feb 94 15:11:37 EST
Date: Mon, 28 Feb 1994 15:08:41 -0500 (EST)
Message-Id: <Pine.3.07.9402281541.A2169-a100000@cap.gwu.edu>
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
From: "Gerald C. Britton" <gbritton@cap.gwu.edu>
To: AmigaE Mailing List <amigae@bkhouse.cts.com>
Subject: MMD0Player.e
Here is a simpe example of how to use the MEDPlayer.library from E.
The MEDPlayer emodule was created w/Pragma2Module from the .h file.
--- 8< ---
MODULE 'MEDPlayer'
PROC main()
DEF m[120]:STRING, mod=NIL, err=NIL
m := arg
IF (medplayerbase := OpenLibrary('medplayer.library',2))
IF (err := GetPlayer(0)) = NIL
IF (mod := LoadModule(m))
PlayModule(mod)
WriteF('Playing module "\s"\n', m)
WHILE Mouse() <> 3 ; ENDWHILE
StopPlayer()
UnLoadModule(mod)
ELSE
WriteF('*** ERROR: Unable to load module "\s"\n', m)
ENDIF
ELSE
WriteF('*** ERROR: Unable to get player\n')
ENDIF
FreePlayer()
CloseLibrary(medplayerbase)
ELSE
WriteF('*** ERROR: Unable to open MEDPlayer.library v2.00\n')
ENDIF
ENDPROC
/// Gerald - Britton _
/// _(_)_
\\\ /// gbritton@cap.gwu.edu (_)_(_)
\\X// gbritton@freenet.fsu.edu ////